home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / HoleChck.ray < prev    next >
Text File  |  1999-07-10  |  813b  |  31 lines
  1. Viewpoint(1000, 1.6, 0.3)
  2. AmbientLight(128, 128, 128)
  3. LightSource(0, -1000, 200, 255, 255, 255)
  4. LightSource(0,  1000, 200, 255, 255, 255)
  5. LightSource(0, -500, 400, 255, 0, 0)
  6. HoledCheckerboard(
  7.   ' The texture file name (absolute or relative)
  8.   C:\Writing\Books\VBGP2\New\Src\Ch17\vbhelper.bmp,
  9.   1, 1,
  10.   -80, -50, 100,
  11.    80, -50, 100,
  12.   -80,  50, 100,
  13.   1.0,        ' Scale factor for ambient values
  14.   1.0,        ' Scale factor for diffuse values
  15.   20, 0.35,   ' Specular
  16.   0, 0, 0,    ' Reflected
  17.   10, 1, 1,   ' TransN, n1, n2
  18.   0, 0, 0     ' Transmitted
  19. )
  20. BumpySphere( 70, 0, 0, 0,
  21.   0.2,        ' Bumpiness 
  22.   0.2, 0.2, 0.7, ' Ambient
  23.   0.2, 0.2, 0.7, ' Ambient
  24.   20, 0.35,   ' Specular
  25.   0, 0, 0,    ' Reflected
  26.   10, 1, 1,   ' TransN, n1, n2
  27.   0, 0, 0     ' Transmitted
  28. )
  29.  
  30.  
  31.